home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
vmmngr.zip
/
VMM.IN1
< prev
next >
Wrap
Text File
|
1990-07-16
|
1KB
|
22 lines
{*********************************************************}
{* VMM.IN1 1.00 *}
{*********************************************************}
function CompElem(var Elem1, Elem2; CompSize : Word) : Boolean;
{-General purpose comparison inline macro}
Inline(
$1E/ { push ds ;Save DS in BX}
$5B/ { pop bx }
$59/ { pop cx ;Count in CX }
$5E/ { pop si ;DS:SI ->Elem2}
$1F/ { pop ds }
$5F/ { pop di ;ES:DI ->Elem1}
$07/ { pop es }
$B0/$00/ { mov al, 0 ;Assume failure}
$FC/ { cld }
$F3/$A6/ { repe cmpsb ;Compare }
$75/$02/ { jne notequal }
$B0/$01/ { mov al, 1 ;Success }
$53/ {notequal: push bx ;Restore DS }
$1F); { pop ds }